debug test suite crash on windows

diff --git a/Git/HashObject.hs b/Git/HashObject.hs
index 35031f20aed9f9a8893ad9acca5c50f49f817da9..85d027348ba2593e6479a9a735367c728ae9b712 100644 (file)
--- a/Git/HashObject.hs
+++ b/Git/HashObject.hs
@@ -49,6 +49,10 @@ hashFile hdl@(HashObjectHandle h _ _) file = do
        -- So, make the filename absolute, which will work now
        -- and also if git's behavior later changes.
        file' <- absPath file
+       -- XXX windows crash debugging
+#ifndef mingw32_HOST_OS
+       hPutStrLn stderr $ show ("hashFile called on file", file, "abspath is", file')
+#endif
        if newline `S.elem` file' || carriagereturn `S.elem` file
                then hashFile' hdl file
                else CoProcess.query h (send file') receive